home *** CD-ROM | disk | FTP | other *** search
/ 500 MB Nyheder Direkte fra Internet 2 / 500 MB nyheder direkte fra internet CD 2.iso / start / data / text / pascal.txt < prev    next >
Text File  |  1994-09-21  |  41KB  |  1,040 lines
  1.  
  2.                  FUN
  3.   Imagine that you're running for President against Calvin 
  4. Coolidge. To win, you must pass Cal in the polls.
  5.   You must pass Cal. ``Pass Cal'' is the correct way to pronounce 
  6. ``PASCAL'', the name of the computer language that programmers 
  7. are falling in love with.
  8.   PASCAL is harder to learn than BASIC. But once you've learned 
  9. PASCAL, you have amazing power: you can write fancy programs more 
  10. easily in PASCAL than in BASIC because PASCAL helps organize your 
  11. thinking; and your programs will run faster, too!
  12.   American teachers require kids to master LOGO in elementary 
  13. school, BASIC in high school, and PASCAL in college. Gifted kids 
  14. are given the opportunity to start BASIC and PASCAL even sooner 
  15. ___ and so are kids in progressive schools.
  16.   Many high-school seniors take a PASCAL test given by the 
  17. College Board. Seniors who pass can get ``advanced placement'' 
  18. college credit and skip the college's first year of computer 
  19. courses.
  20.   The nicest kinds of PASCAL are Quick PASCAL (published by 
  21. Microsoft) and Turbo PASCAL (published by Borland). They're easy 
  22. to understand, run quickly, and cost little.
  23.   Quick PASCAL runs on the IBM PC and lists for just $99. 
  24. Discount dealers sell it for just $42.
  25.   Turbo PASCAL is available for the IBM PC, Mac, and computers 
  26. using the CP/M operating system. The newest version of Turbo 
  27. PASCAL for the IBM PC is Turbo PASCAL 7, which discount dealers 
  28. sell for $99.
  29.   If you're on a tight budget, which should you buy ___ Quick 
  30. PASCAL or Turbo PASCAL? Since they're very similar to each other, 
  31. you'll probably buy Quick PASCAL because it costs less. Another 
  32. advantage of Quick PASCAL is that it lets you edit your programs 
  33. more easily than Turbo PASCAL. On the other hand, Turbo PASCAL 
  34. runs your programs faster, consumes less RAM and disk space, 
  35. comes with instruction manuals that are larger and more thorough, 
  36. provides on-screen tutorials that are easier to use, understands 
  37. better commands for advanced programming, and is the standard 
  38. against which all other versions are judged. (Quick PASCAL was 
  39. invented just to imitate Turbo PASCAL more cheaply.)
  40.   This chapter explains how to use Quick PASCAL and the most 
  41. common versions of Turbo PASCAL (versions 4, 5.5, and 6).
  42.   If you have Turbo PASCAL 7, follow the instructions for Turbo 
  43. PASCAL 6, which is similar. If you have Turbo PASCAL version 5, 
  44. follow the instructions for version 5.5.
  45.   I'll comment on how other versions of PASCAL differ.
  46.                                                Copy to the hard disk
  47.                                          Quick PASCAL and Turbo 
  48. PASCAL come on a pile of floppy disks. You should copy those 
  49. disks to your hard disk. Here's how.
  50.                                          Quick PASCAL Turn on the 
  51. computer without any floppy in drive A.
  52.                                          The original version of 
  53. Quick PASCAL comes on five 5¼-inch floppy disks. When you see the 
  54. C prompt, put the Quick PASCAL Setup/Utilities Disk in drive A 
  55. and type ``a:''. The computer will display an A prompt. Type 
  56. ``setup''. The computer will say ``Microsoft Quick Pascal Setup 
  57. Program''.
  58.                                          Press ENTER twice. The 
  59. computer will say ``Easy Setup Menu''. Type the letter I. Press 
  60. ENTER four times.
  61.                                          Put the Quick PASCAL 
  62. Program Disk in drive A, and press ENTER. Put the Quick PASCAL 
  63. Advisor Disk in drive A, and press ENTER. Put the Quick PASCAL 
  64. Libraries Disk in drive A, and press ENTER. Put the Quick PASCAL 
  65. Express Disk in drive A; press ENTER twice.
  66.                                          Press R, so that the 
  67. computer says ``Setup Main Menu''. Press X, so that you exit to 
  68. DOS. You'll see an A prompt.
  69.                                          Turn off the computer, 
  70. so you can start fresh.
  71.                                          Turbo PASCAL 4 Turn on 
  72. the computer without any floppy in drive A.
  73.                                          After the C prompt, type 
  74. ``md turbo'' (so you're making a subdirectory called TURBO). 
  75. After the next C prompt, type ``cd turbo'' (so you're changing to 
  76. the TURBO subdirectory).
  77.                                          Turbo PASCAL 4 comes on 
  78. three floppy disks. Put one of those disks in drive A, and type 
  79. ``copy a:*.*'' (which copies all the floppy's files onto the hard 
  80. disk); follow the same procedure for the other two disks.
  81.                                          Turn off the computer, 
  82. so you can start fresh.
  83.                                          Turbo PASCAL 5.5 and 6 
  84. Turn on the computer without any floppy in drive A.
  85.                                          Your Turbo PASCAL comes 
  86. on four 5¼-inch floppy disks. When you see the C prompt, put the 
  87. Install/Compiler disk in drive A, and type ``a:install''. The 
  88. computer will say ``Turbo PASCAL Installation Utility''.
  89.                                          Press ENTER four times. 
  90. You'll see ``C:\TP''. Press the BACKSPACE key, then type URBO so 
  91. you see ``C:\TURBO''. At the end of the URBO, press ENTER.
  92.                                          Press the F9 key.
  93.                                          If you're using version 
  94. 6, put the Turbo Vision/Tour disk in drive A, press ENTER, put 
  95. the Help disk in drive A, press ENTER, put the BGI/Utilities disk 
  96. in drive A, and press ENTER twice. (If you're using version 5.5, 
  97. put the Tour/Online Help disk in drive A, press ENTER, put the 
  98. OOP/Demos/BGI/Doc disk in drive A, press ENTER, put the 
  99. Utilities/Misc disk in drive A, and press ENTER twice.)
  100.                                          You'll see an A prompt. 
  101. Turn off the computer, so you can start fresh.
  102.             Start PASCAL
  103.   To start using PASCAL, turn on the computer without any floppy 
  104. in drive A.
  105.   If you've put the DO.BAT file onto your hard disk (as I 
  106. recommended in the MS-DOS chapter), your life is easy! Just type 
  107. ``do qp'' to do Quick PASCAL; type ``do turbo'' to do Turbo 
  108. PASCAL.
  109.   If you have not put DO.BAT onto your hard disk, your life is 
  110. harder! You must type ``cd qp'' and then ``qp'' to do Quick 
  111. PASCAL; you must type ``cd turbo'' and then ``turbo'' to do Turbo 
  112. PASCAL.
  113.   Press the CAPS LOCK key, so the computer will automatically 
  114. capitalize everything you type (and your typing will look like 
  115. the examples in this chapter).
  116.   Here's what to do next.
  117.   Quick PASCAL You don't have to do anything!
  118.   Turbo PASCAL 4 Press the E key (which means ``Edit''). Make 
  119. sure the cursor is at a blank part of the screen. (If it's not, 
  120. press the DELETE key several times.)
  121.   Turbo PASCAL 5.5 Press the F6 key (so the cursor moves to the 
  122. bottom of the screen). Then press the F6 key while holding down 
  123. the Alt key (so the bottom of the screen says ``Output''). Then 
  124. tap the F6 key without the Alt key (so the cursor moves to the 
  125. top part of the screen).
  126.   Turbo PASCAL 6 Press F10 then W then the letter O (so the 
  127. cursor moves to the bottom of the screen). Press F10 again then W 
  128. then T. Press F6.
  129.  
  130.            How to program
  131.   For example, type this PASCAL program:
  132. BEGIN;
  133. WRITELN('I WOULD LIKE TO KISS');
  134. WRITELN('YOUR BOTTLE OF WINE');
  135. END.
  136.   The program begins with the word BEGIN and ends with the word 
  137. END. Every line ends with a semicolon, except that the bottom 
  138. line ends with a period. The middle lines say WRITELN, which 
  139. tells the computer to WRITE a LiNe.
  140.   Naming the program If you wish, you can put an extra line at 
  141. the top of the program, to give the program a name. The name can 
  142. be up to 8 letters long. For example, if you want to name the 
  143. program WINE, you can begin the program by saying PROGRAM WINE, 
  144. like this:
  145. PROGRAM WINE;
  146. BEGIN;
  147. WRITELN('I WOULD LIKE TO KISS');
  148. WRITELN('YOUR BOTTLE OF WINE');
  149. END.
  150.   Colors If your screen can display colors, here's what you see. 
  151. In Turbo PASCAL, the program is yellow. In Quick PASCAL, most of 
  152. the program is white, but the keywords (PROGRAM, BEGIN, and END) 
  153. turn purple and the strings (`I WOULD LIKE TO KISS' and `YOUR 
  154. BOTTLE OF WINE') turn light blue.
  155.                                          Run the program When you 
  156. finish typing the program, tell the computer to run it. Here's 
  157. how. For Turbo PASCAL 4, press F10 then R. For Turbo PASCAL 5.5 & 
  158. 6, press F10 then type RR. For Quick PASCAL, press F5; and if the 
  159. computer asks ``Rebuild?'', press ENTER.
  160.                                          If you typed the program 
  161. correctly, the computer will write:
  162. I WOULD LIKE TO KISS
  163. YOUR BOTTLE OF WINE
  164.                                          If you typed the program 
  165. incorrectly, the computer will say:
  166. Error
  167. (If you're using Quick PASCAL, then press ENTER.) The computer 
  168. will put the cursor near your error. Correct the error (by using 
  169. the arrow keys, DELETE key, and other word-processing keys), then 
  170. tell the computer to run the program again.
  171.                                          After a good run After 
  172. the computer has run the program successfully, do the following: 
  173. for Quick PASCAL, press ENTER; for Turbo PASCAL 4, press ENTER 
  174. then E; for Turbo PASCAL 5.5 and 6, you don't have to do 
  175. anything!
  176.                                          You'll see the program 
  177. again. If you wish, edit the program again and run the edited 
  178. version.
  179.                                           Other versions Some 
  180. versions of PASCAL require you to say PROGRAM WINE at the top of 
  181. the program; if you don't say PROGRAM WINE, those versions gripe.
  182.                                          Ancient versions require 
  183. the top line to say this:
  184. PROGRAM WINE(INPUT,OUTPUT);
  185.                                          Some Apple 2 and Mac 
  186. versions automatically indent all lines between BEGIN and END and 
  187. force you to omit the semicolon next to the word BEGIN.
  188.  
  189.                                                  Advanced editing
  190.                                          While typing and editing 
  191. your program, you can edit faster by using these tricks. . . . 
  192.                                          To delete a whole line, 
  193. move to that line. Then tap the Y key (which means ``Yank it 
  194. out'') while holding down the CONTROL key.
  195.                                          To insert an extra line 
  196. in the middle of your program, move to where you want the extra 
  197. line to begin. Press the ENTER key, then the up-arrow.
  198.                                          Here's how to delete or 
  199. move a block of text. . . . 
  200.                                          Turbo PASCAL 6 and Quick 
  201. PASCAL Put the cursor at the block's beginning. Hold down the 
  202. SHIFT key while moving to the block's end, so the entire block 
  203. changes color.
  204.                                          Then say what you want 
  205. to do to the block. If you want to delete the block, press the 
  206. DELETE key for Quick PASCAL; press CONTROL with DELETE for Turbo 
  207. PASCAL 6. If you want to move the block instead, press SHIFT with 
  208. DELETE, then point where you want the block to appear and press 
  209. SHIFT with INSERT.
  210.                                          Turbo PASCAL 4 and 5.5 
  211. Put the cursor at the block's beginning. Press CONTROL with K 
  212. (which means ``kommand''), then press B (which means ``block'').
  213.                                          Point at the character 
  214. after the block's end. Press CONTROL with K, then press K (which 
  215. means ``klose''). The entire block changes color.
  216.                                          Then say what you want 
  217. to do to the block. If you want to delete the block, press 
  218. CONTROL K then Y (``which means ``yank''). If you want to move 
  219. the block instead, point where you want the block to appear and 
  220. press CONTROL K then V (which means ``visible'').
  221.           Save your program
  222.   Here's how to copy your program onto the hard disk.
  223.   Quick PASCAL Press the Alt key. Say ``File Save'' by typing FS. 
  224. If the computer says ``File Name'', type a name for the program 
  225. (such as WINE) and press ENTER.
  226.   Turbo PASCAL 4 and 5.5 Press the F2 key. If the computer says 
  227. ``Rename'', type a name for the program (such as WINE) and press 
  228. ENTER.
  229.   Turbo PASCAL 6 Press the F2 key. If the computer says ``Save 
  230. file as'', type a name for the program (such as WINE) and press 
  231. ENTER.
  232.  
  233.            Switch programs
  234.   Here's how to switch to other programs.
  235.   Quick PASCAL Press CONTROL with F4. If the computer asks ``Do 
  236. you want to save?'', press N. The screen becomes blank. Press the 
  237. Alt key.
  238.   If you want to invent a new program, say ``File New'' (by 
  239. typing FN). If instead you want to retrieve a saved program, do 
  240. this: say ``File Open'' (by typing FO), type the program's name 
  241. (such as WINE), and press ENTER.
  242.   Turbo PASCAL 4 and 5.5 If you want to invent a new program, 
  243. press F10 then type FN (which means File New). If instead you 
  244. want to retrieve a saved program, do this: press F3 and ENTER; 
  245. point at the program you want to use (by using the arrow keys and 
  246. PAGE DOWN key) and press ENTER.
  247.   If the computer asks ``Save?'', press N.
  248.   Turbo PASCAL 6 Press Alt with F3. If the computer asks 
  249. ``Save?'', press N.
  250.   If you want to invent a new program, press F10 then type FN 
  251. (which means File New). If instead you want to retrieve a saved 
  252. program, do this: press F3 and ENTER; point at the program you 
  253. want to use (by using the arrow keys) and press ENTER.
  254.  
  255.           Multiple writing
  256.   This program belongs in your bathroom:
  257. BEGIN;
  258. WRITELN('FAR','TIN','G');
  259. END.
  260. The computer will write FAR, TIN, and G all on the same line, 
  261. like this:
  262. FARTING
  263.  
  264.                 Exit
  265.   When you finish using PASCAL, here's how to return to the DOS 
  266. prompt.
  267.   Quick PASCAL Press the Alt key. Say ``File eXit'' (by typing 
  268. FX). If the computer asks ``Do you want to save?'', press N.
  269.   If you're using a fancy color monitor (such as VGA), you'll 
  270. discover that Quick PASCAL has changed the monitor's colors. To 
  271. reset the colors, turn the computer off and then back on.
  272.   Turbo PASCAL Press Alt with X. If the computer asks ``Save?'', 
  273. press N.
  274.                                                      EXE files
  275.                                          The computer can't 
  276. really understand PASCAL. Whenever you tell the computer to run a 
  277. PASCAL program, the computer secretly creates a second version of 
  278. your program. The second version is written in machine language 
  279. instead of PASCAL. (Machine language is the only language the 
  280. computer really understands.) Then the computer runs the 
  281. machine-language version of your program.
  282.                                          The program you typed 
  283. (in PASCAL) is called the source code. The program the computer 
  284. runs (in machine language) is called the object code.
  285.                                          When the computer is 
  286. translating your program from PASCAL to machine language (from 
  287. source code to object code), the computer is said to be compiling 
  288. your program. Since Quick PASCAL and Turbo PASCAL make the 
  289. computer compile your PASCAL programs, Quick PASCAL and Turbo 
  290. PASCAL are called PASCAL compilers.
  291.                                          Example Suppose you type 
  292. a PASCAL program, then tell the computer to save it on the hard 
  293. disk and call it WINE. The computer will copy it to your hard 
  294. disk's PASCAL subdirectory, where it will be called ``WINE.PAS''. 
  295. The ``.PAS'' means ``source code written in PASCAL''.
  296.                                          When you tell the 
  297. computer to run the WINE.PAS program, the computer translates it 
  298. to machine language. The machine-language version (the object 
  299. code) is called ``WINE.EXE''. The ``.EXE'' means ``executable 
  300. object code written in machine language''.
  301.                                          If you're using Quick 
  302. PASCAL, the computer automatically puts WINE.EXE in your disk's 
  303. PASCAL subdirectory. If you're using Turbo PASCAL instead, the 
  304. computer puts WINE.EXE in the RAM but not on disk ___ unless you 
  305. give a special ``Destination Disk'' command.
  306.                                          After the computer has 
  307. run your program and put WINE.EXE on disk, you can run the 
  308. WINE.EXE machine-language program without using PASCAL. Here's 
  309. how: quit PASCAL, then do a ``cd'' to the PASCAL subdirectory, 
  310. then type ``wine''.
  311.                                          Experiment Try the 
  312. following experiment. . . . 
  313.                                          Step 1: type a PASCAL 
  314. program.
  315.                                          Step 2: tell the 
  316. computer to save the program and call it WINE. The computer will 
  317. call your program WINE.PAS and copy it to PASCAL's subdirectory. 
  318. (If you're using Turbo PASCAL, the computer will rename a 
  319. previous WINE.PAS to WINE.BAK.)
  320.                                          Step 2½: if you're using 
  321. Turbo PASCAL, say ``Destination Disk''. Here's how. Press F10 
  322. then C. If you see ``Destination Memory'' instead of 
  323. ``Destination Disk'', press D. Then return to the editor (by 
  324. pressing F6 for version 4, Esc for version 5.5).
  325.                                          Step 3: run the program. 
  326. The computer will invent WINE.EXE (a machine-language version of 
  327. WINE) and put it in PASCAL's subdirectory. Then the computer will 
  328. run that machine-language program. (If you're using Quick PASCAL, 
  329. the computer will also produce a WINE.QDB to help the Quick 
  330. DeBugger.)
  331.                                          Step 4: exit from 
  332. PASCAL, so you see the DOS prompt.
  333.                                          Step 5: notice that you 
  334. can run WINE.EXE without using PASCAL. Specifically, go into 
  335. PASCAL's subdirectory (by typing ``cd \qp'' for Quick PASCAL, or 
  336. ``cd \turbo'' for Turbo PASCAL), then type ``wine'' (which runs 
  337. the WINE.EXE program).
  338.  
  339.                 MATH
  340.   PASCAL distinguishes between integers and real numbers. Here's 
  341. how PASCAL defines them. . . . 
  342.  
  343.               Integers
  344.   An integer contains no decimal point and no exponent.
  345. IntegerNot an integerComment
  346. -27   -27.0     An integer contains no decimal point.
  347. 50000 5E4       An integer contains no exponent.
  348.  
  349.             Real numbers
  350.   A real number contains a decimal point or the letter E. For 
  351. example, it can be 0.37 or 5.0 or 6E24. If it contains a decimal 
  352. point, you should put digits before and after the decimal point.
  353. CorrectIncorrect
  354. 0.37  .37
  355. 5.0   5.
  356.    Other versions Old versions of PASCAL require you to put a 
  357. decimal point in every real number; so instead of saying 6E24, 
  358. you must say 6.0E24.
  359.  
  360.              Arithmetic
  361.   Like BASIC, PASCAL lets you do arithmetic by using the symbols 
  362. +, -, *, and /.
  363.   If you combine real numbers, the answer is real:
  364. 4.9+2.1 is the real number 7.0 (not 7)
  365. 5.0-5.0 is the real number 0.0 (not 0)
  366.   If you combine a real with an integer, the answer is still 
  367. real:
  368. 3.5*2 is the real number 7.0 (not 7)
  369. 3/.5  is the real number 6.0 (not 6)
  370.   If you combine integers, the answer is an integer, except for 
  371. division:
  372. 7+4 is the integer 11
  373. 7-4 is the integer 3
  374. 7*4 is the integer 28
  375. 7/4 is the real number 1.75
  376. This program makes the computer do all that arithmetic:
  377. BEGIN;
  378. WRITELN(7+4);
  379. WRITELN(7-4);
  380. WRITELN(7*4);
  381. WRITELN(7/4);
  382. END.
  383. The computer will write:
  384. 11
  385. 3
  386. 28
  387.  1.7500000000E+00
  388. (Quick PASCAL writes extra zeros, like this: 
  389. 1.75000000000000E+0000.)
  390.                                          Let's try writing all 
  391. those numbers on the same line:
  392. BEGIN;
  393. WRITELN(7+4,7-4,7*4,7/4);
  394. END.
  395. The computer will write:
  396. 11328 1.7500000000E+00
  397.                                          Like BASIC, PASCAL lets 
  398. you use parentheses to indicate order of operations.
  399.                                           Other versions Some 
  400. versions of PASCAL automatically write blank spaces in front of 
  401. integers.
  402.                                          Some versions of PASCAL 
  403. write 1.75 instead of 1.7500000000E+00. Some Apple 2 and Mac 
  404. versions automatically round the answer and write 1.8e+0.
  405.  
  406.                                                      Functions
  407.                                          PASCAL lets you use 
  408. these functions:
  409. Function                                       Meaning
  410. ABS(-6)                                        the absolute value 
  411. of -6; it's 6
  412. SQR(3)                                         the square of 3; 
  413. it's 9
  414. SQRT(9)                                        the square root of 
  415. 9; it's 3.0
  416. SIN(2)                                         the sine of 2 
  417. radians
  418. COS(2)                                         the cosine of 2 
  419. radians
  420. ARCTAN(2)                                      the arctangent of 
  421. 2, in radians
  422. EXP(5)                                         e5, where e is 
  423. 2.71828182845904523536
  424. LN(9)                                          the natural 
  425. logarithm of 9; it's loge 9
  426. The number in parentheses can be either an integer or a real. The 
  427. computer's answer is usually a real (exception: for ABS and SQR, 
  428. the computer's answer is an integer if the number in parentheses 
  429. is an integer).
  430.                                          For example, this 
  431. program computes the square root of 9:
  432. BEGIN;
  433. WRITELN(SQRT(9));
  434. END.
  435. The computer will write:
  436.  3.0000000000E+00
  437.                                          Don't confuse SQR with 
  438. SQRT. The SQR means square; the SQRT means square root. To find 
  439. the square of 3, say SQR(3) or 3*3. In BASIC, you could say 3^2; 
  440. but in PASCAL, you can't use the symbol ^; use SQR instead.
  441.                                          To turn a real number 
  442. into an integer, use these functions:
  443. Function                                       Meaning
  444. ROUND(3.9)                                     3.9 rounded to the 
  445. nearest integer;                                                 
  446. it's 4
  447. TRUNC(3.9)                                     3.9 truncated (by 
  448. deleting the .9);                                                
  449. it's 3
  450.                                           Other versions For 
  451. UCSD PASCAL, say ATAN instead of ARCTAN.
  452.                                          If you're using UCSD 
  453. PASCAL on an Apple and want to use the functions SQRT, SIN, COS, 
  454. ATAN, EXP, and LN, you must insert this line immediately under 
  455. the line that says PROGRAM:
  456. USES TRANSCEND;
  457.  
  458.  
  459.           SIMPLE VARIABLES
  460.   You can use variables:
  461. Program             Meaning
  462. VAR                 Here are the variables. . . . 
  463.    FRED,MARTHA: INTEGER;  FRED & MARTHA integers;
  464.    JILL,TOM: REAL;    JILL & TOM are reals.
  465. BEGIN;              Now let's begin the program.
  466. FRED:=2;            FRED (an integer) is 2.
  467. MARTHA:=4+5;        MARTHA (an integer) is 9.
  468. JILL:=9.2;          JILL (a real) is 9.2.
  469. TOM:=1.4+2.3;       TOM (a real) is 3.7.
  470. WRITELN(FRED*MARTHA,JILL+TOM);Write 18 and 1.2900000000E+01.
  471.   The top line says VAR. The word VAR doesn't have a semicolon 
  472. after it; the lines underneath VAR are indented. The indentation 
  473. is optional but a good habit. To indent easily, tap the TAB key.
  474.   For Quick PASCAL, the TAB key indents 8 spaces. For Turbo 
  475. PASCAL, the TAB key indents just enough to get past the word 
  476. above (VAR).
  477.   On the indented lines, say which variables are integers and 
  478. which are reals.
  479.   Once you've indented a line, the computer automatically indents 
  480. all the lines underneath it. If the computer automatically 
  481. indents a line that you don't want to indent, here's how to undo 
  482. the indentation: for Turbo PASCAL 5.5, press the BACKSPACE key 
  483. once; for Turbo PASCAL 4, press the left-arrow key several times; 
  484. for Quick PASCAL, tap the TAB key while holding down the SHIFT 
  485. key.
  486.   In PASCAL, a variable's name can be as long as you like: the 
  487. name can be FRED or WASHINGTON or even 
  488. SUPERCALIFRAGILISTICEXPIALIDOCIOUS. The name can consists of 
  489. letters and digits, but must begin with a letter.
  490.   In PASCAL, you must put a colon in front of the equal sign. . . 
  491. . 
  492. CorrectIncorrect
  493. FRED:=2;FRED=2;
  494.   If you want to add a line saying PROGRAM WINE, put that line 
  495. above the VAR line.
  496.   You can't set an integer variable equal to a real. For example, 
  497. if you say ___ 
  498. VAR
  499.    ANN: REAL;
  500.    BILL: INTEGER;
  501. BEGIN;
  502. ANN:=3.9;
  503. you cannot then say:
  504. BILL:=ANN;
  505. Instead, you must say ___ 
  506. BILL:=ROUND(ANN);
  507. or
  508. BILL:=TRUNC(ANN);
  509.    Other versions Some versions of PASCAL do not automatically 
  510. indent the lines for you.
  511.   Old versions of PASCAL look at just the first 8 characters of a 
  512. variable's name, and ignore the rest of the name.
  513.                                                       READLN
  514.                                          Instead of saying INPUT, 
  515. PASCAL says READLN.
  516. VAR
  517.    X: REAL;
  518. BEGIN;
  519. WRITELN('WHAT IS YOUR FAVORITE NUMBER?');
  520. READLN(X);
  521. WRITELN('ITS SQUARE ROOT IS',SQRT(X);
  522. END.
  523. When you run the program, the computer asks:
  524. WHAT IS YOUR FAVORITE NUMBER?
  525. Then the READLN(X) statement makes the computer wait for you to 
  526. input a value of X. The computer expects you to input a real 
  527. number; if you input an integer instead, the computer will 
  528. automatically turn it into a real. For example, if you input 9, 
  529. the computer will automatically turn it into 9.0 and will write:
  530. ITS SQUARE ROOT IS 3.0000000000E+00
  531.                                           Other versions For old 
  532. versions of PASCAL, say READ instead of READLN.
  533.  
  534.  
  535.                  IF
  536.   The computer can criticize your age:
  537. VAR
  538.    AGE: INTEGER;
  539. BEGIN;
  540. WRITELN('HOW OLD ARE YOU?');
  541. READLN(AGE);
  542. IF AGE<18 THEN
  543.    BEGIN;
  544.    WRITELN('YOU ARE STILL A MINOR.');
  545.    WRITELN('AH, THE JOYS OF YOUTH!');
  546.    END;
  547. WRITELN('GLAD TO MEET YOU.');
  548. END.
  549.   That program makes the computer ask:
  550. HOW OLD ARE YOU?
  551. If you input a number less than 18, the computer replies:
  552. YOU ARE STILL A MINOR.
  553. AH, THE JOYS OF YOUTH!
  554. GLAD TO MEET YOU.
  555. If you input a number that's at least 18, the computer says just 
  556. this:
  557. GLAD TO MEET YOU.
  558.   In that program, the line that says ``IF'' is a heading (the 
  559. lines underneath it are indented), so do not put a semicolon at 
  560. the end of that line!
  561.  
  562.                 ELSE
  563.   To make your program fancier, insert the shaded lines:
  564. VAR
  565.    AGE: INTEGER;
  566. BEGIN;
  567. WRITELN('HOW OLD ARE YOU');
  568. READ(AGE);
  569. IF AGE<18 THEN
  570.    BEGIN;
  571.    WRITELN('YOU ARE STILL A MINOR.');
  572.    WRITELN('AH, THE JOYS OF YOUTH!');
  573.    END 
  574. ELSE                                               
  575.     BEGIN;                                         
  576.     WRITELN('I AM GLAD TO HEAR YOU ARE AN ADULT!');
  577.     WRITELN('NOW WE CAN HAVE SOME ADULT FUN!');    
  578.     END;                                           
  579. WRITELN('GLAD TO MEET YOU.');
  580. END.
  581.   If your age is less than 18, the computer will say:
  582. YOU ARE STILL A MINOR.
  583. AH, THE JOYS OF YOUTH!
  584. GLAD TO MEET YOU.
  585. If your age is not less than 18, the computer will say:
  586. GLAD TO HEAR YOU ARE AN ADULT!
  587. NOW WE CAN HAVE SOME ADULT FUN!
  588. GLAD TO MEET YOU.
  589.   In that program, the line that says ``ELSE'' is a heading, so 
  590. do not put a semicolon after the ``ELSE''. Immediately above the 
  591. word ELSE, you'll see the word END; do not put a semicolon after 
  592. that END.
  593.                                                       Symbols
  594.                                          Like BASIC, PASCAL uses 
  595. these symbols in the IF line:
  596. <      >      =      <=      >=      <>      AND      OR
  597.                                          In the IF line, the 
  598. symbol for ``equals'' is ``=''; outside the IF line, the symbol 
  599. for ``equals'' is ``:=''.
  600.                                          Instead of saying ___ 
  601. IF I=3 OR I=8 OR I=25 OR I=95 THEN
  602. you can say:
  603. IF I IN [3,8,25,95] THEN
  604. That means ``If I is in this set of numbers ___ 3,8,25,95 ___ 
  605. then . . . ''
  606.  
  607.                 LOOPS
  608.   To create a loop, say FOR or REPEAT or WHILE. Here's how to use 
  609. those words.
  610.  
  611.                  FOR
  612.   Like BASIC, PASCAL uses the word FOR. This program makes the 
  613. computer get drunk:
  614. VAR
  615.    I: INTEGER;
  616. BEGIN;
  617. FOR I := 7 TO 10 DO
  618.     BEGIN;
  619.     WRITELN('I DRANK ',I,' BOTTLES OF BEER');
  620.     WRITELN('HOORAY!');
  621.     END;
  622. WRITELN('NOW I AM DEAD DRUNK');
  623. END.
  624.   Since the FOR line is a heading, do not put a semicolon at the 
  625. end of it. When you run the program, the computer will write:
  626. I DRANK 7 BOTTLES OF BEER
  627. HOORAY!
  628. I DRANK 8 BOTTLES OF BEER
  629. HOORAY!
  630. I DRANK 9 BOTTLES OF BEER
  631. HOORAY!
  632. I DRANK 10 BOTTLES OF BEER
  633. HOORAY!
  634. NOW I AM DEAD DRUNK
  635.   If you want the computer to count backwards ___ from 10 down to 
  636. 7 ___ change the FOR line to this:
  637. FOR I := 10 DOWNTO 7 DO
  638.  
  639.                REPEAT
  640.   This program plays a guessing game:
  641. VAR
  642.    GUESS: INTEGER;
  643. BEGIN;
  644. WRITELN('I AM THINKING OF A NUMBER FROM 1 TO 10');
  645. REPEAT
  646.       WRITELN('YOU HAVE NOT GUESSED MY NUMBER YET');
  647.       WRITELN('WHAT IS MY NUMBER?');
  648.       READLN(GUESS);
  649. UNTIL GUESS=6;
  650. WRITELN('CONGRATULATIONS! YOU GUESSED IT! MY NUMBER IS 6');
  651. END.
  652.   The computer begins the game by saying:
  653. I AM THINKING OF A NUMBER FROM 1 TO 10
  654. Then the computer REPEATs the following procedure several times: 
  655. it says YOU HAVE NOT GUESSED MY NUMBER YET, asks WHAT IS MY 
  656. NUMBER, waits for the human to input a guess, and checks whether 
  657. the human guessed 6. It repeats that procedure again and again, 
  658. UNTIL the human finally guesses 6. Then the computer says:
  659. CONGRATULATIONS! YOU GUESSED IT! MY NUMBER IS 6
  660.   In that program, the computer REPEATs the indented lines, UNTIL 
  661. GUESS is 6.
  662.   If a program contains the word REPEAT, it must also contain the 
  663. word UNTIL. The lines between REPEAT and UNTIL are done 
  664. repeatedly. After each time, the computer checks whether to 
  665. repeat again.
  666.   Since the REPEAT line's a heading, it has no semicolon.
  667.   Like an IF line, the UNTIL line can contain these symbols:
  668. <     >     =     <=     >=     <>     AND     OR     IN
  669.   Here's another example. Let's make the computer start
  670. with the number 3 and keep doubling it, like this:
  671. 3
  672. 6
  673. 12
  674. 24
  675. etc.
  676. Let's make the computer keep doubling but not go over 1000. So 
  677. altogether, let's make the computer write:
  678. 3
  679. 6
  680. 12
  681. 24
  682. 48
  683. 96
  684. 192
  685. 384
  686. 768
  687. THOSE ARE ALL THE NUMBERS BELOW 1000
  688.                                          Here's the program:
  689. VAR
  690.    I: INTEGER;
  691. BEGIN;
  692. I:=3;                                              Start I at 3.
  693. REPEAT                                             Repeat the 
  694. indented lines until I>=1000.
  695.       WRITELN(I);
  696.       I:=I*2;
  697. UNTIL I>=1000;
  698. WRITELN('THOSE ARE ALL THE NUMBERS BELOW 1000');
  699. END.
  700.  
  701.                                                        WHILE
  702.                                          The word WHILE resembles 
  703. the word REPEAT. For example, the previous program (which doubled 
  704. 3 repeatedly) can be rewritten to use WHILE:
  705. VAR
  706.    I: INTEGER;
  707. BEGIN;
  708. I:=3;                                              Start I at 3.
  709. WHILE I<1000 DO                                    If I<1000, do 
  710. the indented lines, and repeat them
  711.       BEGIN;                                       again and 
  712. again, as long as I remains below 1000.
  713.       WRITELN(I);
  714.       I:=I*2;
  715.       END;
  716. WRITELN('THOSE ARE ALL THE NUMBERS BELOW 1000');
  717. END.
  718.                                          The indented lines say 
  719. to WRITELN(I) and then double I. The computer repeats those 
  720. indented lines many times. Before each repetition, the computer 
  721. checks to make sure I is still below 1000. When I passes 1000, 
  722. the computer stops looping and proceeds to the next line, which 
  723. writes THOSE ARE ALL THE NUMBERS BELOW 1000.
  724.                                          These two structures 
  725. resemble each other:
  726. Using REPEAT                                       Using WHILE
  727. REPEAT                                             WHILE I<1000 
  728. DO
  729.       etc.                                               BEGIN;
  730. UNTIL I>=1000;                                           etc.
  731.                                                          END;
  732. Each of those structures makes the computer repeat the indented 
  733. lines and check whether I is still below 1000. If you say REPEAT, 
  734. the check is done at the loop's bottom, so the computer goes 
  735. through the loop once before checking. If you say WHILE, the 
  736. check is done at the loop's top, so the computer checks whether 
  737. I<1000 before doing the loop the first time.
  738.  
  739.                   LOGIC TRICKS
  740.   Every statement must end with a semicolon. You can put several 
  741. statements on the same line:
  742. Normal    Alternative
  743. A:=3;     A:=3; B:=7.6; WRITELN(A+B);
  744. B:=7.6;
  745. WRITELN(A+B);
  746.   You can continue a statement on the next line:
  747. Normal    Alternative
  748. A:=5-2+1; A:=
  749.           5-2
  750.           +1;
  751. But do not divide a statement in the middle of a word, number, 
  752. symbol, or string:
  753.                             Wrong, because  Wrong, because    
  754. Wrong, because
  755. Normal           Okay       middle of word  middle of number  
  756. middle of symbol
  757. IF AGE>=18 THEN  IF AGE     IF AG           IF AGE>=1         IF 
  758. AG>
  759.                  >=18 THEN  E>=18 THEN      8 THEN            =18 
  760. THEN
  761.  
  762.                Omitting semicolons
  763.   You can omit the semicolon after BEGIN:
  764. Normal    Alternative
  765. BEGIN;    BEGIN
  766.   You can omit a semicolon, if the next word is END:
  767. Normal    Alternative
  768. A:=3;     A:=3
  769. END;      END;
  770.   You can omit a semicolon, if the next word is UNTIL:
  771. Normal    Alternative
  772.       I=*2;      I=I*2
  773. UNTIL I>=1000;UNTIL I>=1000;
  774.  
  775.              Omitting BEGIN and END
  776.   If a heading heads just one indented line (besides BEGIN and 
  777. END), you can put that indented line next to the heading (and 
  778. omit the BEGIN and END).
  779. Long way    Short cut
  780. FOR I := 1 TO 9 DOFOR I := 1 TO 9 DO WRITELN(I);
  781.     BEGIN;
  782.     WRITELN(I);
  783.     END;
  784.  
  785. WHILE A<100 DOWHILE A<100 DO A:=A+7;
  786.       BEGIN;
  787.       A=A+7;
  788.       END;
  789.  
  790. IF AGE>=65 THENIF AGE>=65 THEN WRITELN('OLD');
  791.    BEGIN;
  792.    WRITELN('OLD');
  793.    END;
  794.  
  795. IF WEIGHT>220 THENIF WEIGHT>220 THEN WRITELN('FAT') ELSE 
  796. WRITELN('OKAY');
  797.    BEGIN;
  798.    WRITELN('FAT');
  799.    END
  800. ELSE
  801.    BEGIN;
  802.    WRITELN('OKAY');
  803.    END;
  804.  
  805. REPEAT      REPEAT A:=A+7 UNTIL A>100;
  806.       A:=A+7;
  807. UNTIL A>100;
  808.  
  809.  
  810.               Comments
  811.   To put comments into your program, surround the comment by 
  812. braces:
  813. BASIC         PASCAL
  814. 10 'I HATE COMPUTERS{I HATE COMPUTERS}
  815.   Do not put a semicolon after the comment.
  816.   If your screen can display colors, Quick PASCAL makes the 
  817. comments and braces turn green.
  818.    Other versions If your keyboard is old and lacks braces, use 
  819. parentheses and asterisks instead:
  820. (*I HATE COMPUTERS*)
  821.  
  822.                 GOTO
  823.   You can say GOTO.
  824. LABEL 10;
  825. BEGIN;
  826. WRITELN('MY DOG');
  827. GOTO 10;
  828. WRITELN('NEVER');
  829. 10: WRITELN('DRINKS WHISKEY');
  830. END.
  831.   The top line warns the computer that a future line will be 
  832. labeled ``line 10''. The rest of the program makes the computer 
  833. write MY DOG, then skip to line 10, which makes the computer 
  834. write DRINKS WHISKEY. Altogether, the computer will write:
  835. MY DOG
  836. DRINKS WHISKEY
  837.   Do not put a space between GO and TO.
  838.   Here's another example:
  839. LABEL 10;
  840. BEGIN;
  841. 10: WRITELN('LOVE');
  842. WRITELN('HATE');
  843. GOTO 10;
  844. END.
  845. The computer will write LOVE and HATE repeatedly:
  846. LOVE
  847. HATE
  848. LOVE
  849. HATE
  850. LOVE
  851. HATE
  852. etc.
  853. To abort the program, tap the C key while holding down the 
  854. CONTROL key. (For Quick PASCAL, then press ENTER.)
  855.   If your program contains lines numbered 10, 20, and 100, put 
  856. this statement at the top of your program:
  857. LABEL 10,20,100;
  858. Put that statement at the very top of your program: the only 
  859. statement that should go above it is the one saying PROGRAM. The 
  860. PROGRAM and LABEL lines go above all other lines ___ even above 
  861. VAR and BEGIN.
  862.   Each line number must be small: no higher than 9999.
  863.   In PASCAL, you'll rarely need to say GOTO. Instead, try using 
  864. the words IF, ELSE, FOR, REPEAT, and WHILE.
  865.    Other versions In UCSD PASCAL, if you want to say GOTO, you 
  866. must say (*$G+*) at the top of your program:
  867. (*$G+*)
  868. PROGRAM SKIPPER;
  869. LABEL 10;
  870. etc.
  871.  
  872.                                                     Procedures
  873.                                          This program teases you, 
  874. with the help of some insults:
  875. PROGRAM INSULT;
  876. BEGIN;
  877. WRITELN('YOU ARE STUPID');
  878. WRITELN('YOU ARE UGLY');
  879. END;
  880.  
  881. {MAIN ROUTINE}
  882. BEGIN;
  883. WRITELN('WE ALL KNOW...');
  884. INSULT;
  885. WRITELN('...AND YET WE LOVE YOU');
  886. END.
  887.  
  888.                                          That program begins by 
  889. defining INSULT to be this procedure:
  890. WRITELN('YOU ARE STUPID');
  891. WRITELN('YOU ARE UGLY');
  892. The main routine makes the computer write `WE ALL KNOW...', then 
  893. do the INSULT procedure, then write `...AND YET WE LOVE YOU'; 
  894. altogether, the computer will write:
  895. WE ALL KNOW...
  896. YOU ARE STUPID
  897. YOU ARE UGLY
  898. ...AND YET WE LOVE YOU
  899.                                          The PROCEDURE, called 
  900. INSULT, is a subroutine. In PASCAL, subroutines come before the 
  901. main routine. (In BASIC, subroutines come after the main routine 
  902. instead.)
  903.                                          Put a program's VAR 
  904. above any procedures:
  905. VAR                                                The program 
  906. uses a variable,
  907.    I: INTEGER;                                     called I, 
  908. which is an integer.
  909.  
  910. PROCEDURE DOUBLE;                                  The subroutine 
  911. is called DOUBLE.
  912. BEGIN;
  913. I:=2*I;                                            The subroutine 
  914. doubles the value of I
  915. WRITELN(I);                                        and writes the 
  916. new value of I.
  917. END;
  918.  
  919. {MAIN ROUTINE}                                     Here's the 
  920. main routine. . . .
  921. BEGIN;
  922. I:=7;                                              I starts at 7.
  923. DOUBLE;                                            Do subroutine 
  924. DOUBLE, which writes 14.
  925. DOUBLE;                                            Do DOUBLE 
  926. again, which writes 28.
  927. WRITELN(I+1);                                      Write 29.
  928. END.
  929.  
  930.  
  931.          ADVANCED VARIABLES
  932.   You've seen that a variable can stand for a number. This 
  933. section explains how to make a variable stand for a character, 
  934. array, or string.
  935.  
  936.                 CHAR
  937.   A variable can stand for a character:
  938. VAR
  939.    ANN,JOAN: CHAR;ANN and JOAN will each be a character.
  940. BEGIN;
  941. ANN:='U';   ANN is the character `U'.
  942. JOAN:='P';  JOAN is the character `P'.
  943. WRITELN(ANN,JOAN);The computer will write `U' and `P'.
  944. END.
  945. The computer will write U and P like this:
  946. UP
  947.   You can put a character variable after the word FOR:
  948. VAR
  949.    I: CHAR;
  950. BEGIN;
  951. FOR I := 'A' TO 'E' DO WRITELN(I);
  952. END.
  953. The computer will write:
  954. A
  955. B
  956. C
  957. D
  958. E
  959.  
  960.                 ARRAY
  961.   Let's make X be this list of real numbers: 4.2, 71.6, 8.3, 
  962. 92.6, 403.7, 1.4. Here's how:
  963. VAR
  964.    X: ARRAY [1..6] OF REAL;
  965. BEGIN;
  966. X[1]:=4.2;
  967. X[2]:=71.6;
  968. X[3]:=8.3;
  969. X[4]:=92.6;
  970. X[5]:=403.7;
  971. X[6]:=1.4;
  972. WRITELN(X[1]+X[2]+X[3]+X[4]+X[5]+X[6]);
  973. END.
  974. The computer will write the sum, 581.8.
  975.   Subscripts can be negative:
  976. VAR
  977.    Y: ARRAY [-2..3] OF REAL;
  978. BEGIN;
  979. Y[-2]:=400.1;
  980. Y[-1]:=274.1;
  981. Y[0]:=9.2;
  982. Y[1]:=8.04;
  983. Y[2]:=0.6;
  984. Y[3]:=-5.0;
  985. WRITELN(Y[-2]+Y[-1]+Y[0]+Y[1]+Y[2]+Y[3]);
  986. END.
  987. The computer will write the sum, 687.04.
  988.                                          Here's how to make Z be 
  989. a table having 6 rows and 4 columns of reals:
  990. VAR
  991.    Z: ARRAY [1..6, 1..4] OF REAL;
  992. The number in the 3rd row and 2nd column is called Z[3,2]. The 
  993. entire first row of Z is called Z[1]; the second row is called 
  994. Z[2]; etc. For example, if you say ___ 
  995. Z[5]:=Z[3];
  996. the computer will look at the real numbers in the 3rd row of Z, 
  997. and copy them into the 5th row. Suppose W is another array that 
  998. has 6 rows and 4 columns; if you say ___ 
  999. W:=Z;
  1000. the computer will look at each real number in Z and copy it into 
  1001. W.
  1002.                                          You can have many kinds 
  1003. of arrays: you can have an array of REAL, an array of INTEGER, 
  1004. and even an array of CHAR.
  1005.  
  1006.                                                       STRING
  1007.                                          A variable can stand for 
  1008. a string:
  1009. VAR
  1010.    X: STRING;
  1011. BEGIN;
  1012. X:='I LOVE MY MOTH';
  1013. WRITELN(X,'ER');
  1014. END.
  1015.                                          The computer will write 
  1016. `I LOVE MY MOTH' and then `ER', like this:
  1017. I LOVE MY MOTHER
  1018.                                          You can make the 
  1019. computer read a string:
  1020. VAR
  1021.    X: STRING;
  1022. BEGIN;
  1023. WRITELN('WHAT IS YOUR NAME?');
  1024. READLN(X);
  1025. WRITELN('HELLO ',X,' THE BEAUTIFUL');
  1026. END.
  1027. When you run that program, the computer asks:
  1028. WHAT IS YOUR NAME?
  1029. Then the READLN(X) statement makes the computer wait for you to 
  1030. input a string. If you input the name MARILYN MONROE, the 
  1031. computer will write:
  1032. HELLO MARILYN MONROE THE BEAUTIFUL
  1033.                                           Other versions Instead 
  1034. of letting you say STRING, some versions of PASCAL require you to 
  1035. say STRING[80].
  1036.                                          The oldest versions of 
  1037. PASCAL require you to say PACKED ARRAY [1..80] OF CHAR instead. 
  1038. Some of those old versions can't read or write the whole array 
  1039. string at once: instead you must create FOR loops that read and 
  1040. write one character at a time.